/*  sromuldb.cpp  by K.Tsuru  */
// function ID = 824 BRADIX
/************************
 SRational class
operator *=double
*************************/
#ifndef SN_H
#include "sn.h"
#endif
SRational operator*(const SRational& m, double d){
    SRational r;    // r.reduceDone = 0;
    if(d == 0.0) r.SetZero();
    else if(d == 1.0L)  r = m;
    else if(d == -1.0L) r = -m;
    else r.Set( m.NumNR()*(SInteger)d, m.DenNR() ); // includes r.reduce(false);
    return r;
}